home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Geos / GEOS128 / GeosD81 / cs22.d81 / annual rep.demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.2 KB  |  34 lines
  1. 2 POKE631,82:POKE632,85:POKE633,78:POKE634,54:POKE635,13:REM" RUN6
  2. 4 [151]198,5:[159]15,9,15,"I0":[128]:" SOME TURBO CART. BREAK WITH _E9"
  3. 6 [160]15:D[178]8:[139](ST [175] 191)[178]0 [167]D[178]9
  4. 8 :
  5. 10 [153]"LOAD ANNUAL REPORT KA43/61
  6. 20 PRINT" AN HIRES DEMO
  7. 30 [153]" BY K]RE AANESTAD 16-OCT-92
  8. 50 _E8:C$="80-SCREEN.CHR":_X"NORSK*",C$D
  9. 60 IF(ST AND 191)<>0 AND D=9 THEN:_E9:PRINT"[145][145][145]":_E8:_X,C$8
  10. 70 _X"HIRES"B
  11. 80 :
  12. 90 DIM N(11):SC=112:B=172:READ YR$:PRINT CHR$(14)
  13. 100 MAX=0:FOR Z=0 TO 11:READ N(Z): IF N(Z)> MAX THEN MAX=N(Z)
  14. 110 NEXT:NOM=SC/MAX:REM" 100%=SC DOTS
  15. 120 _XB:_XC:_XS:_XT,1,26,"ATN(null)(null)(null)ATN(null) (null)VAL(null)(null)(null)(null)":_XT,4,3,YR$[170]""
  16. 130 _XT,4,54,"(null)RODUCTION":_XT,5,54,"PEEKEST MONTH=100%"
  17. 140 [129] Y[178]B[171]SC [164] B:_XP,33,Y:_XP,34,Y:[130]
  18. 150 _XT,21,6,"0 TAN":_XT,14,4,"50% TAN":_XT,7,3,"100% TAN"
  19. 160 _XT,22,11,"MID$AN  ASCEB  (null)AR  ATNPR  (null)AY  MID$UN  MID$UL  ATNUG  (null)EP  (null)CT  (null)OV  STR$EC"
  20. 170 [129] Z[178]0 [164] 11:T[178][181](B[171]N(Z)[172]NOM[170].5):L[178]43[170]Z[172]20:R[178]L[170]12
  21. 180 [129] Y[178]B [164] T [169][171]1
  22. 190 [129] X[178]L[164]R:_XP,X,Y:[130]
  23. 200 [130]:[130]
  24. 210 :
  25. 220 _XT,24,20,"(null)RESS  ASC7 WAIT TO QUIT AND  ASC5 WAIT FOR PRINT OUT"
  26. 230 [129] X[178]1 [164] 300:[130]:[143]" DELAY
  27. 240 GET A$:IF A$="" THEN:_XT,24,20,"[133][133][133][133][133][133][133][133][133][133][133][133][133][133][133][133][133][133][133][133][133][133][133][133][133][133][133][133][133][133][133][133][133][133][133][133][133][133][133][133][133]"
  28. 250 IF A$="[136]" THEN:_XR:END
  29. 260 IF A$<>"[135]" THEN220
  30. 270 _C0:OPEN 4,4:PRINT#4,CHR$(14):REM" ONLY <CTRL> CHR'S WHEN IN _C0 & HIRES
  31. 280 _G13,224,23:_G:[152]4,[199](15):[160] 4:[137]220
  32. 290 :
  33. 300 [131] 1990,30,80,60,40,50,55,10,05,65,100,70,35
  34.